Some Rotatable 3D Surface of Game Data

1 Data Preparation

The data set used in the 3D is a sub table of the original data matrix that 500 roows and 500 columns.

game = read.csv("https://pengdsci.github.io/FisherGame/GameData.csv")
gameMatrix = matrix(0, nrow=500, ncol=500)
for (i in 1:500){
  for (j in 1:500){
    gameMatrix[i,j] = game[i,j]
  }
}

2 Original Response Surface

The following rotatable 3D surface plot show some clear patterns.

fig.trans <- plot_ly(z = ~gameMatrix)
fig.trans <- fig.trans %>% add_surface(opacity = 0.6)
fig.trans

3 Transformed Response Surface

The following 3D surface plot is based the log-transformed data.

fig.trans <- plot_ly(z = ~log(gameMatrix+1))
fig.trans <- fig.trans %>% add_surface(opacity = 0.6)
fig.trans